home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byteibm.arc / WILTON.ARC / CSLS1.LST < prev    next >
Encoding:
File List  |  1985-07-12  |  769 b   |  26 lines
  1. 100 'RAM-Loadable Character Sets on the IBM PC
  2. 110 'Listing 1
  3. 120 '
  4. 130 'Richard Wilton
  5. 140 'July 1986
  6. 150 '
  7. 160 'Notes:
  8. 170 '   This program demonstrates a rudimentary "software character generator"
  9. 180 '   for All Points Addressible graphics modes on IBM's Color Graphics
  10. 190 '   Adapter (CGA).
  11. 200 '
  12. 210 DEFINT A-Z
  13. 220 SCREEN 2 : CLS
  14. 230 FOR I = 0 TO 3*80 STEP 80             ' rows are 80 bytes apart
  15. 240  FOR S = &HB800 TO &HBA00 STEP &H200  ' even rows in B800, odd in BA00
  16. 250   DEF SEG = S
  17. 260   READ B
  18. 270   POKE I,B                            ' store each byte into video buffer
  19. 280   NEXT S
  20. 290  NEXT
  21. 300 PRINT : PRINT
  22. 310 END
  23. 320 '
  24. 330 'dot data which defines the character 'A' ...
  25. 340 DATA &h18,&h3c,&h66,&h66,&h7e,&h66,&h66,&h66
  26.